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ZTITLE NPLSREAD information module’ 


MODULE NML 
ANGUAGE (BLISS32) 
ADDRESSING _MODE (NONEXTERNAL=GENERAL) , 
ADDRESSING~ GIMODE (EXTERNAL=GENERAL) , 
we P 


UMPwn— 
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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS cy ee UNDER A LICENSE AND MAY BE USED AND og Le 
ie ONLY IN om ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie Stier OF THE ABOVE et NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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B38 FACILITY: (CECnet-VAX Network Management Listener 

0037 ! ABSTRACT: 

003 These routines dispatch NICE READ function requests to the entity 


processing routine. 

i ENVIRONMENT: VAX/VMS Operating System 
i AUTHOR: Kathy Perko 

i CREATION DATE: 30-June-1982 
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i MODIFIED BY: 
5 v03-007 pone 4 Kathy Perko 7-Jan-1984 
: Add X25 Access Module entity. 
5 V03-006 MKP0006 Kathy Perko 4-Aug-1983 
5 Enhance node permanent database to use more ISAM keys - to 
: speed it up. 
5 v03-005 MKP000S Kathy Perko 28-April-1983 
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X-11 Bliss-32 v4. 
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: 38 H } } Add Adjacent service circuit database. 

: 60 1 V03-004 MKP0004 thy Pe 17-Jan-1983 

: $ 1 ! } Add support for the I Leeheeren Module. 

: 8 $068 1! v03-003 MKP0003 Kathy Perko 14-Nov-1982 

; ¢: seg: ! Add circuit qualities ts SHOW KNOWN and ACTIVE NODES. 

; 66 ine 1 i v03-002 mKP0002 Kathy Perko 8-Nov-1982 

5 of 0067 ! Add area entity. 

; 69 9 1! v03-001 mKPO00! Kathy Perko 5-0ct-198 

: 4 th : te Add show for adjacent nodes, and for circuits po» nodes. 
Be 0072 1 
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ZSBTTL ‘Declarations’ 


a! 


' 
: TABLE OF CONTENTS: 


FORWARD ROUTINE 
NMLSREAD 


NAL 

v06 

: 1 

3 1 

3 1 

: i 

: 1 : NOVALUE, 

; g 1 NML_READ : NOVALUE, 

: 8s 1 NML“READ_LOGGING : NOVALUE, 

3 1 NML_READ_ : NOVALUE, 

: 85 1 NMLREAD-EXECUTOR : NOVALUE, 

: 1 NML READ NETWORK : NOVALUE, 

; 87 1 NML“READ-AREA : NOVALUE, 

; 87 1 NML~SHOW-LINKS : NOVALUE, 

3 L) PLURAL : NOVALUE; 
89 088 NML~READ"PLURA OVALUE 

: 91 1! 

; % 091 1! INCLUDE FILES: 

s 9 ¢ 1! 

; | 694 93 1 

: 95 094 1 LIBRARY 'LIBS:NMLLIB.L32'; 

: 96 5 1 LIBRARY 'SHRLIBS:NMALIBRY.L32': 

a © % 1 LIBRARY "SYSSLIBRARY:STARLET.L32'; 

; 98 097 1 

; (99 098 1! 

: 100 0099 1 | EXTERNAL REFERENCES: 

: 101 0100 1! 

s 195 0101 1 

: 10 010¢ 1 SNML_EXTDEF; 

> 104 919 1 

: 105 104 1 EXTERNAL ROUTINE 

> 106 0105 1 LIBSESTABLISH : ADDRESSING_MODE (GENERAL), 

> 107 0106 1 LIBSREVERT —: ADDRESSING-MODE (GENERAL), 

: 108 0107 1 NMLSOPENF ILE, 

: 109 0108 1 NMLSBLD_ REPLY 

: 110 109 1 NMLSMAIRHANDLER, 

+ 111 9110 1 NMLSERROR_1, 

; 18 11 «1 NMLSERROR~2 

> 11 O11 1 NMLSLISTENTITY, 

: 114 113 1 NMLSLIST_K NODES, 

> 115 gig 1 NMLSLIST~TYPE_RODES, 

: 116 115 1 NMLSLISTR 

: 11 116 1 NMLSREADACTLOG, 

: 118 117 1 NML SREADKNOLOG 

>: 11 118 1 NMLSREADLOGGING, 

+ 120 119 1 NMLSSEND 

: 121 120 1 NML SSHOWMUL TIPLE 

. % : 121 1 NMLS$SHOW_MULTIPLE NODES, 

a 1 é 1 NMLS$SHOW"KNOWN_LOOP, 

: 126 1 1 NMLSSHOWENTITY 

> 125 124 1 NMLS$SHOW CIRCUIT, 

or 6 125 1 NML $SHOWRODEBYNAME , 

a 1 6 1 NML $SHOWEXECUTOR 

: 128 1 1 NMLSCALL_NI_CONF IG; 
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Dispatch tables. 


tno Fa aes module 16-Sep-1984 99: eB: 79 


14-Sep-1 


! 
Macro to build dispatch table for an enticy. 
MACRO STAB (TAB, 


OT Seat en. RTN, 


SHOW_RTN; 
SHOW"W_QUAL_RTN, 
SHOW-KNO_R 
SHOW-KNOW QUAL _RIN, 
SHOW-ACT-RTN 


LIST 
LIST. 
LIST. 
LIST- 


Se 5 
v 


at at ba Bee nd Bt fee Be 
AOOAIOOOOOM 


TAB 3 BBLOCK CZLENGTH * 4) INITIAL ( 
(DISPATCH_RTN, TAB), 


1N; 
=WAQUAL AR RIN, TAB), 
KNOW U QUAL RTN, TAB), 
CACTATN TAB), 
“Coda erin TAB), 
KR. RTN, TAB) 

“i 


NO~W_QUAL_RTN, TAB) 
s never a LIST ACTIVE command. 


HOW 
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vuvUUU 
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$s 
$s 
SH 
SH 
LI 
LI 
Ll 
LI 
!The 


S$PIC (ADDR,TAB) = 
Nien tat (ADDR, 0) 
sELSE LONG (ZNAME (ADDR) = ZNAME (TAB)) 


There is one table for each internal NML entity (NML 


internal entities are broken down more that NICE entities). The table 
spect ties the Sos teyias te marernet sen about the entity: 
ed 


he address of of t 


ispatch routine in this acdule for the entity. 


mats the entities can 


dispatch routines wary & depending on the different 
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200000000 NNN NOOO 
Pee NOON oe eb neko oo Doe a een ot Dee nee ote 


$TAB (LINE_TAB, 
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for 
The edéresses of the routines catch perfere the requested read: 


how single entity 

Show single entity. with specified qualifier 
Show known entitie 

Show ~ po entities with specified qualifier 
single 

List sinale on sority with specified qualifier 
List known entities 

List known entities with specified qualifier 
Show active entities 


seeceoeueges 
cr w 
~ 
w 
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! NMLSC_LINE 
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PO ee Se ee ee gee ee ee ee et ee ee ae Se ge a OT ir ae ERE ar. ee er eg ee ae ee Goi col oF oa 


STAB (EXECUTOR TAB, ! NML$C_EXECUTOR 
NML READ EXECUTOR, 
NMLSSHOWEXECUTOR, 0, 0, 0, 


MMMNRTurnrn — 


vuvv 


| j 
1 
.| NALSREAD NML Read information module 1b-se =1984 :28:3 VAX=-11 Bliss-32 V4.0-74 Pa 5 
| V04G- Declarations 12780871382 90:88:39 DL SKSVMEMASTERS CNM SRCINMLREAD.B32:1 - (3) 
> 187 185 4 NML_READ 
ls 188 P 01 6 1 NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 
> 189 1 1 NMLSSHOWMUL TIPLE, 
; 190 188 NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 
i: 19 P0190 1 STAB (LOGGING TAB, ! NML$C_LOGGING 
3 198 Pp 8139 1 NML_READ LOGGING, 3 
: 194 P 0198 1 
> 195 P0193 1 NMLS$READACTLOG 
i 196 O194 1 NMLSREADLOGGING, 0, NMLSREADKNOLOG, 0); 
; 198 196 1 BIND SINK_TAB = UPLIT (0); 
: 00 P a8? i STAB cone TAB ! NML$C_NODE 
; 201 P0199 1 NMC_READ_NODE, . 
; 0¢ b 9¢00 1 NMLSSHOWENTITY, 0, NMLSSHOW_MULT!PLE_NODES, 
; 203 P 0201 1 NALS$SHOW_MULTIPLE_NODES, 
; 204 P 9208 1 NMLSSHOW_MULTIPLE_NODES, 
: 4 b60> } NMLSLISTENTITY, 0, NMLSLIST_KNOWN_NODES, 0); 
: 207 P 0205 1 $TAB (NODEBYNAME_TAB ! NML$C_NODEBYNAME 
> 208 P 9206 1 NML_READ-NODE, 
; 209 P 0207 1 NMLSSHOWNODEBYNAME , 0, NML$SHOW_MULTIPLE_NODES,O, 
; 310 P0208 1 NMILS$SHOW MULTIPLE_NODES, 
: $13 350 : NMLSLISTENTITY, 0, NMLSLIST_KNOWN_NODES, 0); 
: 213 v 051 1 $TAB (LOOPNODE_TAB, ! NMLSC_LOOPNODE 
3; 214 P0212 1 NML_READ_NODE, 
; ¢15 P 021 0. 0, NML$SHOW_KNOWN_LOOP, 0, 
: 37 031 0; 0, NMLSLIST_TYPE_NODES, 0); 
: 219 P 0217 1 $TAB (ADJACENT_TAB, ! NML$C_ADJACENT_NODE 
: 220 P0218 1 NML_READ_NODE, 
4 é 1 p 021 0. 0, NMLS$SHOWMULTIPLE, NMLSSHOWMULTIPLE, 
ae : 0221 1 0; 0, 0, 0): 
> 224 0222 1 
3 5 0223 1 
; 6 3 1 
; 7 0225 1 
; 228 0226 1 
: 095 : 
Ege pee 
- 3 85 1 
is 234 02 1 
: 235 02 
; $ 5 i 
: 1 
: 1 
; 1 
; 8 1 
; 1 


—OOONOA UE WN 0 OO NOAUE WN —$O OONOUESWN-OOCO~n 


; NMLSLISTENTITY, 0, 0, 0); 
P STAB (OBJECT_TAB, ' NMLSC_OBJECT 
3 Pp : L_READ 
P NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 
: P 3 LSSHOWMULTIPLE, 
NMLSLISTENTITY, 0. NMLSLISTKNOWN, 0); 
4 r 4 ; STAB (CIRCUIT TAB, ! NMLSC_CIRCUIT 
5 P NMLSSHOW CIRCUIT, NMLSSHOW_CIRCUIT, NMLSSHOWMULTIPLE, NMLSSHOWMULTIPLE, 
40 p NMLSSHOWMULTIPLE, 
41 ; NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 
tg 4 BIND CIRCUIT_ADJACENT_TAB = UPLIT (0); 


| 
| 
NMLSREADCOGGING, 0, NMLSREADKNOLOG, 0, 
| 
| 
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ls 266 43 1 

45 43 BIND CIRCUIT_ADJ_SRV_TAB = UPLIT (0); 

: $ P 0245 1 $TAB (AREA_TAB ! NMLSC_AREA 

; a P 0 46 1 NMC_READ_AREA, 

: P0247 1 NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 

: 250 P0248 1 NMLS$SHOWMUL7IPLE, 

: 1 0249 1 0, 0, 0, 0); 

; 38 0250 1 

; 5 0251 1 

> 254 P 0 3 1 STAB (ACCESS_TAB, ! NML$C_X25_ACCESS 

: 255 P0253 1 NML_READ_NETWORK, 

; 23 4 . re ! NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 

: 358 0 36 NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 

; $26 P 0258 1 $TAB (PROT_NET_TAB ! NMLSC_PROT_NET_TAB 

> 261 P0259 1 NMC_READ_NETWORK, 

; ¢ P 0260 1 NMLSSHOWENTITY, 0, 0, 0, 

> 26 P 0261 1 i 

; 64 026¢ NMLSLISTENTITY, 0, 0, 0); 

; 66 p ae | STAB (PROT DIE TAB. ! NMLSC_PROT_DTE 

: 268 P 0266 1 NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 

> 269 P 0267 1 NMLSSHOWMULTIPLE, 

: 370 0 68 NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 

; oe P 0970 ] STAB (PROT GRP, TAB, ! NML$C_PROT_GRP 

: ar P 0978 NMLSSHOWMULTIPLE, NMLSSHOWMULTIPLE, NMLSSHOWMULTIPLE, NMLSSHOWMULTIPLE, 

: $36 osie : NMLSLISTKNOWN, NMLSLISTKNOWN, NMLSLISTKNOWN, NMLSLISTKNOWN) ; 

: 278 P 0276 1 STAB (SERV_TAB, ! NML$C_X25_SERV and NML$C_X29_SERV 

> 279 P 0277 1 NMC_READ 

; 380 P O78 NMLSSHOWENTITY, 0, 0, 0, 

3 382 0280 NMLSLISTENTITY, 0, 0, 0); 

; 286 p 0963 STAB (SERV DEST_TAB, ! NML$C_X25_SERV_DEST and NMLSC_X29_SERV_DEST 

: She P 0284 1 NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0, 

: 7 P 0 5 1 NMLSSHOWMUL TIPLE, 

: 988 0286 NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 

; 290 P 0288 1 STAB (TRACE_TAB, ! NML$C_TRACE 

> 291 P 9 89 1 NML READ 

: % P 1 NMLSSHOWENTITY, 0, 0, 0, 

: 29 P0291 1 : 

: 29% 3 NMLSLISTENTITY, 0, 0, 0); 

: P 0294 1 $TAB (TRACEPNT_TAB, ! NMLSC_TRACEPNT 

: P0295 1 NML_READ 

; P % 1 NMLSSHOWENTITY, 0, NMLSSHOWMULTIPLE, 0. 

: P 0 97 1 NML$SHOWMULTIPLE, 

; 98 1 NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 
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1 
STAB (NI ,CONEIG TAB, ! NMLSC_NI_CONFIG 
NMLSCALL.NI_CONFIG, 0, NMLSCALL_NI_CONFIG, 0, 
NMLSLISTENTITY, 0, NMLSLISTKNOWN, 0); 
STAB (LINK_TAB ! NMLSC_LINK 


NMC_SHOW_LINKS, 
GALESHOMENTITY. . NMLSSHOWMULTIPLE, NMLSSHOWMULTIPLE, 
° 0, 0); 


jo lolelolelalolololo) 
oO 
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i Table table. Contains pointers to Dispatch tables for NML entities. 
Indexed by NML$C_entity definitions. 


OWN TABLE_TAB : VECTOR CNMLSC_MAXENTITY] INITIAL ( 
Spie BEING. TAB TABLE Fab) 
NK_TAB,TABLE_TAB), — 


mP>r2zur-r- 
me SeSzaz 
max 


TABL 

TAB, TABLE. TABS, 
DJACENT_TAB, TABLE_TAB), 

ADJ_SRV TAB. fABLE_TAB) . 


TABL 
TAB, TABLE TAB) . 1 X25 


ERV-TAB;TABLE_ TABS, 1 X25 
ERV-DEST_TAB, TABLE. TAB), i x25 
R CE TABY, 

RACEPNT_fAB, TABLE TAB), 
ERV_TAB;TABLE_TABY, x29 
ERV~DEST_TAB, TABLE_TAB), i X29 
CONF 1G" TAB. TABLE TAB). 


1 
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1 $PIC 
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1 
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1 
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1 
1 Nk_TAB, TABLE_TAB) 
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ZSBITL "NMLSREAD Read parameters main routine’ 
GLOBAL ROUTINE NMLSREAD : NOVALUE = 


'¢ 


FUNCTIONAL DESCRIPTION: 


. 
' 
. 
' 
. 
' 
. 
‘ 
. 
i] 
. 
' 
. 
' 
. 
' 
. 
le 
. 


This routine dispatches the NICE read parameters command to 
the correct function handler. 


IMPLICIT INPUTS: 


NMLS$GB_OPTIONS contains the optten {hag parsed from the NICE message. 
NMLSGB_ENTITY_CODE contains the entity code. 


BEGIN 


MA 
. NMLSGB_ENTITY_ FORMAT : Bris SIGNED, 


NMLS$GB_OPTIONS : BBLOCK (1); 


LOCAL 

INDEX, ! Index into Information Table (in NMLDAT) 

ENT_TAB : REF BBLOCK, ! Dispatch table reference 

READ_TABLE_ADR: REF BBLOCK, ! Address of SHOW or LIST portion of entity 
} dispatch table. 

RTN_ADDR, ! Temporary routine address 

READ_RTN; ' Address of routine to perform 
read requested by NICE 


' 
Get the index for information type requested by the NICE command. 
SELECTONEU .NMLS$GB_INFO OF 


CNMASC_OPINF_ SUM): 
{Neen = RAL SE _ SUMMARY; ! Summary 
CNMASC_OPINF_ STA): 
JNBEX e RMLSC_STATUS; ! Status 
CNMASC_OPINF CHA]? hes: 
JNDEX = RMLSC_CHARACTERISTICS; ! Characteristics 
CNMASC_OPINF_COUJ3 


Counters are kept only in the volatile data base. 
if .NMLS$GB_OPTIONS CNMASV_OPT_PER] THEN 
INDEX = 1 


INDEX = NMLSC_COUNTERS; 


CNMASC_OPINF EVE): 

INDEX = AMLSC_EVENTS; ! Events 
COTHERWISE): 

INDEX = -1; ! Option error 
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yO%~000 NMLSREAD Read pa:ameters main routine 13-808- 1982 90:88:49 TE ERSUNGMASTERSCNML  SRCINMLREAD.8325 1 " (4) 
403 400 } 
t8e t8) If the information type is illegal, signal an error response to NCP 
40 if .INDEX EQLU -1 THEN 
be9s NMLSERROR_1 (NMASC_STS_FUN); 
40 ‘ 
040 ! Get address of entity's dispatch table. The addresses are stored as offsets 
0408 to make NMLSHR PIC. Change the offset into a useable address. 


ENT_TAB = .TABLE_TAB C.NMLSGL_NML_ENTITY] + TABLE_TAB; 
IF TENT_TAB NEQA~O THEN 


N 
RTN_ADDR = .ENT_TAB CDTSL_DISPATCH] + .ENT_TAB; 
i 60 to dispatch table for the entity specified in the NICE message. 
Get se scnrene of the routine which performs the type of read 
requested. 


F .RTN_ADDR NEQA .ENT_TAB THEN 
BEGIN 


ete ee 


' 
! Get address of portion of entity's dispatch table conteraing 
' the change routine addresses for the function (SHOW or LIST 
specified by the NICE message. 

IF .NML$GB_OPTIONS CNMASV_OPT_PER] THEN 

READ_TABLE_ADR = ENT_TAB COTSA_LIST_ROUTINES) 


SE 
READ_TABLE_ADR = ENT_TAB CDTS$A_SHOW_ROUTINESJ; 


UN IAS Oe NOUR SOONER UN ODe 


i Each function's portion of the entity's dispatch table contains 
' the addresses of five read routines. These routines do the 


| ak eine hel el ek ee ae et atk ee et ee ae ee ek ee ee ee ke ek ek ek ed eae a 
ar at ek el ek et ak ee ek ek ae ee ae ae ae Oe wk ee ee ae kk ee ee 


BH FAWN AAA AIIDINIPININPONINPNINIDY 2 OO OO Ow 


6494 9 49 9 9999939 9999599939999 99535 
—OODNA VL WN (OO ODNAULS WN $ O OBNOUSWN HO 


yoy oY oY oY ot ot at ot ot ot et tet et et et ee tk he eh hh 


' 
4 
i] 
7 : ros louing: 
438 : - Read a single entity 
439 : - Read a single entity with the specified qualifier 
440 ‘ - Read known entities 
441 4 ! - Read known entities with the specified qualifier 
44 4 ‘ - Read active entities (never used for LIST because 
reh ri the permanent data base does not maintain real state info. 
re Oe SELECTONEU -NMLSGB_ENTITY_FORMAT OF 
44 444 NMASC_ENT_KNO, ' read known 
448 445 NMASC_ENT_LOO ' read lLoopnodes 
449 4 NMASC"ENT~ADJJ: i read adjacent nodes 
450 44 IF” .NMCSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
th ret READ_RTN = .READ_‘ABLE_ADR™ CRDSL_KNOWN_W_QUAL J 
45 50 EAD_RIN = .READ_TABLE_ADR CRDS$L_KNOWN); 
454 451 CNMASC_ENT_ACT): ! eed active 
455 2g READ_RTN = .READ_TABLE_ADR Bose AT vedi 
45 5 0): ' read active X25-Protocol network, 
45 454 : node by address or single area. 
458 455 READ_RTN = .READ_TABLE_ADR CRDSL_ENTITY); 
459 456 {1 TO 16]: ! read single entity 
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NMLSREAD Read parameters main routine ats y 99: $5: 3 DIS aKSVMGM TER: cNnc” she NMLREAD.B32; ‘ — (aS ve 
IF 36 PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN ; 


i." D_RTN =. READ_TABLE_ “ADR” CROSL ENTITY _W_QUAL] 
READ_RTN = .READ_TABLE_ADR CRDSL_ENTITY]; 
pa teat 
; READ = 0; ! Invalid entity format for SHOW 


i The routine addresses are stored as offsets (to make NMLSHR PIC). 
Make the offset into a callable routine address. 


if “READ RTN NEQ 0 THEN 
READ_RTN = .READ_RTN + .ENT_TAB; 
} Call read routine. 
i. RTN_ADDR) (. tt pe NML_ENTITY, 


“READ_ *RIN): 
END 


LSE 
NMLSERROR_2 (NMASC_STS_IDE, .NML$GB_ENTITY_FORMAT); 


ELSE 
’ NMLSERROR_2 (NMASC_STS_IDE, .NMLS$GB_ENTITY_FORMAT); 


ELSE 
NMLSERROR_2 (NMASC_STS_IDE, ;MILS6B ENTITY_FORMAT); 
END; ! End of NMLSREAD 


AON MAAS & ENN NAINIII BS BB PLP PPL LEE 


-TITLE NMLSREAD NML Read information module 
-IDENT \vV04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00000000 00000 P.AAA: .LONG 0 ; 
00000000 sete P.AAB: .LONG 0 : 
00000000 00008 P.AAC: .LONG 0 : 


~PSECT SOWNS,NOEXE,2 


00000000V 00000 LINE_TAB: 
eLONG <NML_READ-LINE TAB> 
S -LONG <NMLSSHOWENTITY-LINE_TAB> 


00000000* 000 
00 9000 00 8 “LONG : 
0 Oe 90¢ -LONG <NMLS$SHOWMULTIPLE=L1NE_TAB> 
. Bois "LONG <NMLSSHOWMULTIPLE-LINE_TAB> : 
e 18 -LONG <NMLSLISTENTITY=LINE_TAB> 

: § “LONG | <NMLSLISTKNOWN-LINE_TAB> : F 
4 “LONG : 
p 8 LONG 3 

000v C LOGGING. TAB 


.LONG  <NML_READ_LOGGING-LOGGING_TAB> 


H 1 

NMLSREAD NML Read information module 16-Sep-1984 28:3 VAX-11 Bliss-32 V4.0-74 1 NP 
v04-000 NMLSREAD Read parameters main routine 12-80-1384 90:85:99 DISKSVMGMASTERSCNML SRCINMLREAD.B32;1°%° (A) ve 
| * 9 Loe <NMLSREADLOGGING-LOGGING_TAB> : ; 
* 8 LONG SNAIL SREADKNOLOG-LOGGING_TAB> : : 
0 * 046 LONG <NMLSREADACTLOG-LOGGING_TAB> : : 
20 2 re) LONG <NMLSREADLOGGING-LOGGING_TAB> : ; 
0 * gee LONG <NML $SREADKNOLOG-LOGGING_TAB> : : 
09 09 ben . LONG : : 
a renee <NML_READ_NODE=NODE_TAB> 
0000000* 9005 -LONG <NMLSSHOWENTITY-NODE_TAB> : $ 
44 0060 LONG 0 : : 
0000000* 00064 -LONG <NML$SHOW_MULTIPLE_NODES-NODE_TAB> 3 : 
i $000. 00068 -LONG <NMLSSHOW-MULTIPLE-NODES=-NODE_TAB> : : 
000000* 0006C -LONG <NMLS$SHOW-MULTIPLE-NODES-NODE_TAB> : : 
00000000* Boney -LONG <NMLSLISTENTITY-NODE_TAB> 3 ° 
444 44 0074 LONG ; ‘ 
0000000* 00078 «LONG <NMLSLIST_KNOWN_NODES-NODE_TAB> : ‘ 
00000000 0007C -LONG 0 F : 
00000000 00080 LONG 3 ’ 
00000000V 00084 NODEBYNAME_TAB: ; 
LONG <NML_READ_NODE-NODEBYNAME_TAB> : : 
00000000* 00088 -LONG <NMLSSHOWNODEBYNAME-NODEBYNAME _TAB> 3 : 
00000000 0008C LONG ; : 
00000000* 00090 «LONG <NMLS$SHOW_MULTIPLE_NODES-NODEBYNAME_TAB> : : 
4444464164 00094 -LONG 0 F : 
00000000* 00098 «LONG <NMLS$SHOW_MULTIPLE_NODES-NODEBYNAME_TAB> 3 : 
44 20046 LONG <NMLSLISTENTITY-NOBEBYNAME _TAB> 3 : 
00000000* O00A4 -LONG <NMLSLIST_KNOWN_NODES-NODEBYNAME_TAB> : 3 
Boob OOS 000A8 -LONG 0 3 : 
- 00000000 OQOO0O0AC -LONG 0 5 3 
00000000v 00080 LOOPNODE_TAB: 3 
“LONG <NML_READ_NODE-LOOPNODE_TAB> 3 3 
a4 4 -LONG 0 : 3 
0000000 00088 -LONG 0 3 3 

0000000* oper -LONG <NMLSSHOW_KNOWN_LOOP-LOOPNODE_TAB> 3 

4444 00C -LONG 0 3 

000000 00C4 -LONG 0 3 

4844 Bence LONG 3 

00000 O00CC . LONG : 

8 $ Obs 3 9 LONG <NMLSLIST_TYPE_NODES-LOOPNODE_TAB> : 

38 0 88 sit LONG 3 

000000V O00DC ADJACENT_TAB: 

~LONG <NML_READ_NODE-ADJACENT_ TAB> : 

8 0 00E0 ~ LONG 3 

Hite -LONG 3 

* E8 -LONG <NMLSSHOWMULTIPLE-ADJACENT_TAB> : 

* pee LONG <NMLSSHOWMUL TIPLE-ADJACENT_TAB> : 

ore ~LONG : 

F8 . LONG 3 

8 OFC . LONG : 

00 100 . LONG : 


| 
' 
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OBJECT_T 


CIRCUIT_ 


«LONG 
TAB: 


AB: 
LONG 


TAB: 


79 VAX-11 Bliss-32 V4. 
1 DISKSVMSMASTER 
0 


<NML_READ_EXECUTOR=EXECUTOR_ TAB> 
<NMLSSHOWEXE CUTOR-EXECUTOR_TAB> 


<NMLSLISTENTITY-EXECUTOR_TAB> 


8 


<NML_READ-OBJECT_TAB> 
<NMLSSHOWENTITY-OBJECT_TAB> 


SAALSSHOWMRA TEPLE~OBJECT_TAR> 


<NMLSSHOWMUL TIPLE-OBJECT_TAB> 
<NMLSLISTENTITY=OBJECT_TAB> 


<NMLSLISTKNOWN-OBJECT_TAB> 


<NML_READ=CIRCUIT_TAB> 
<NMLSSHOW_CIRCUIT=CIRCUIT_TAB> 
<NML$SHOW"CIRCUIT-CIRCUIT—TAB> 
<NMLSSHOWMULTIPLE=CIRCUIT~TAB> 
<NMLS$SHOWMUL TIPLE=CIRCUIT~TAB> 
<NMLSSHOWMUL TIPLE-CIRCUIT~TAB> 
<NMLSLISTENTITY-CIRCUIT_TAB> 
<NMLSLISTKNOWN=CIRCUIT_TAB> 

0 


<NML_READ_AREA-AREA_TAB> 
<NMLSSHOWENT I TY-AREA_TAB> 


<NMLSSHOWMUL TIPLE-AREA_TAB> 
SALSENCUAA TIPLE “AREA TAR> 


: 


<NML_READ_NETWORK=ACCESS_TAB> 
<NMLSSHOWENTITY-ACCESS_TAB> 


<NMLSSHOWMUL TIPLE-ACCESS_TAB> 


<NMLSLISTENTITY-ACCESS_TAB> 


e 12 
. 4) 
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SOoQooooooooo 
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1 


730071382 99:86:79 STCSUMBMASTERSCNMC SRCSNMLREAD.B32:1°%° ¢ 


;LON 
PROT_NET_TAB: 
LONG 

LONG 
NG 
LONG 
LONG 
LONG 
LONG 
“LONG 
“LONG 
“LONG 
- LONG 
PROT_DTE_TAB: 
“LONG 


G 
- LONG 


-LON 
SERV_DEST_TAB: 


CONG 
»LONG 


0 
<NMLSLISTKNOWN-ACCESS_TAB> 


<NML_READ_NETWORK=PROT_NET_TAB> 
<NMLSSHOWENTITY=PROT_NET_TAB> 


<NMLSLISTENTITY-PROT_NET_TAB> 


<NML_READ=PROT DTE_TAB> 
<NMLSSHOWENTITY-PROT_DTE_TAB> 


0 
<NML$SHOWMULTIPLEPROT_DTE_TAB> 


<NALSSHOWMULTIPLE-PROT_DTE_TAB> 
<NMLSLISTENTITY=-PROT_DTE_TAB> 


PORE. ES TENOPROT DUE, TAD? 
0 


<NMLSLISTKNOWN-PROT_GRP_TAB> 
<NML$LISTKNOWN=PROT~GRP~TAB> 
<NML$L1STKNOWN=PROT~GRP~TAB> 
<NALSLISTKNOWN-PROT—GRP_TAB> 


<NML_READ-SERV_TAB> 
<NMLSSHOWENT I TY-SERV_TAB> 


<NMLSLISTENTITY-SERV_TAB> 


<NML_READ-SERV DEST TAB> 
<NMLSSHOWENTITY-SERV_DEST_TAB> 


<NMLSSHOWMUL TIPLE-SERV_DEST_TAB> 


1 
4 
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OOoOoOoooooooo OOOOCSOOOSOOOS OOOCOSCOOSOOOSSO OOOCOOOCOOOOoOO 


COOOooooooooeo 
a 226 


» LONG 
TRACEPNT_TAB: 
NG 


LONG 


LONG 
LONG 


“LONG 
NI_CONFIG 
. CONG 


G 

“LONG 

“LONG 
LINK_TAB: 


L 
TABLE_TAB: 


N 
TAB: 
N 


0 
<NMLSSHOWMUL TIPLE-SERV_DEST_TAB> 
<NMLSLISTENTITY=-SERV_DEST_TAB> 


<NMLSLISTKNOWN-SERV_DEST_TAB> 


<NML_READ=TRACE_TAB> 
<NMLSSHOWENTITY=TRACE_TAB> 


<NMLSLISTENTITY=TRACE_TAB> 


D 


<NML_READ=TRACEPNT_TAB> 
<NMLSSHOWENT I TY-TRACEPNT_TAB> 


POR SOHOITA SIPLE TRACED TAD 


<NMLSSHOWMULTIPLE-TRACEPNT_TAB> 
<NMLSLISTENTITY-TRACEPNT_TAB> 


0 
<NMLSLISTKNOWN-TRACEPNT_TAB> 


<NML_READ-NI_CONF IG_TAB> 
<NMLSCALL_N1I~ CONF IG=NI_ CONF 1G_TAB> 


<NMLSCALL_NI_CONF IG-NI_CONF 1G_TAB> 


<NMLSLISTENTITY=N1I_CONF 1G_TAB> 
<NMLSLISTKNOWN-NI_CONF 1G_TAB> 


<NML_SHOW_LINKS=LINK_TAB> 
<NMLSSHOWENT I TY-LINK_TAB> 


<NMLSSHOWMULTIPLE=LINK_TAB> 
<NML$SHOWMULTIPLE=LINK~TAB> 


<LINE_TAB-TABLE _TAB> 


1 
ereeen i 8Rs P3i8BiF9 | Peed SAAS FER cle shCSwmreap.032:5°%° < 


Sete Se Se Se Se Se Be Sete Be 
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NMLSREAD NML Read information module 18-5 $ep-1984 00:28:3 VAX-11 Bliss-32 V ge 15 
yo%~000 NMLSREAD Read parameters main routine 1 ~$007 138% 90°35 ; DI SKSVMSHASTERSENML OSRCINMLREAD. 832; ? (4) 
* 74 - LONG SLPS INE TAB-TABLE_TAB> $ : 
* 78 LONG TAB-TABLE_TAB> : : 
* if - LONG <hODE TAB-TABLE— TAB> : ; 
* LONG <NODEBYNAME_TAB=TABLE_T 3 ; 
* » LONG <LOORNDDE TAB-TABLE_ ‘> : ; 
* 8 «LONG <ADJACEN -TABLE~ TAB> : : 
* «LONG <EXECUTOR” TAB-TABLE~ TAB> 3 ° 
000* -LONG <OBJECT _TAB-TABLE_TAB> ; ; 
* 94 «LONG <CIRCUIT_TAB-TABLE_TAB> : . 
* 98 LONG <CIRCUIT-ADJACENT_TAB-TABLE_TAB> 3 : 
* 9 LONG <CIRCUIT-ADJ_SRV_TAB-TABLE _TAB> : ; 
* A LONG <AREA_TAB-TABLE VAS : ; 
* A -LONG <ACCESS_TAB-TABLE_TAB> ; ; 
* 0035A8 -LONG <PROT_NET_TAB-TABCE_TAB> ; : 
* = «LONG <PROT-DTE- TAB“TABLE. TAB> 3 : 
0 4 * B «LONG <PROT-GRP_TAB-TABLE~TAB> 3 : 
0 * B4 «LONG <SERV-TAB=TABLE 5 3 ‘ 
000000* 00388 ~-LONG <SERV"DEST_TAB-TABLE_TAB> 3 ; 
4 0000+ 3 ef LONG <TRACE_TAB=TABLE_TABS r : 
8 38 Qe C . LONG <TRACEPNT _TAB=TABLE TAB> 3 . 
00000000* 003C¢4 -LONG <SERV_ ABLE_T 3 ; 
00000000* 44 c8 - LONG <stRy DEST. q TABLE_TAB> : 3 
4 444 O3CC - LONG 1_ CONF AB-TABLE~ TAB> ; 3 
00000000* 00300 . LONG <LINK, TABCTABLE. 1 TAB> : 3 
00304 -BLKB : 
SINK_TAB= P.AAA 3 
CIRCOIT  ADJACENT_TAB= : 
CIRCUIT_ADJ_SRV_ TAB=P.A AAC . 
~EXTRN NML$GB_ EVTSRCTYP 3 
° NML$GQ"EVTSRCDSC 3 
.EXTRN NMLS$GW"EVTCLAS : 
‘ N NMLS$GB_EVTMSKT 3 
‘ N NML$GQ “BVT SNR ADR : 


Dv ODD 


NMLSAB_MSGBLOCK 
D 


Mew MOMOMOonaMma 


=—4Do 
ms 


SAB_PRMSEM 
LSAL Ne ENT INET AB 
, NMLSGB_CMD_VER 


M1 
NML Read information module 16-Sep-1984 00:28:3 VAX-11 Bliss-32 V4.0-74 Page 
NMLSREAD Read parameters main routine 12-86-1382 90:88:79 DISKSVMSHASTERSCNML SRCINMLREAD.B32s1 ° ( 
.EXTRN NMLS$GB_ENTITY_CODE 
-EXTRN NMLSGB-ENTITY-FORMAT 
XTRN NMLS$GL-QUALIFIER_PST 
.EXTRN NMLSGB~QUALIFIER-FORMAT 
-EXTRN NMLSGB-FUNCTION 
XTRN NML$GB-INFO, NML$GB_OPTION 
-EXTRN NMLSGL-PRMCODE, NMLSGL_PRS_FLGS 
-EXTRN NMLSGL-NML ENTITY 
-EXTRN NMLS$GO_NETRAMDSC 
-EXTRN NML$GQ-RECBFDSC 
-EXTRN NMLSGW-PRMDESCNT 
EXTRN LIBSESTABL ISH, LIBSREVERT 
-EXTRN NMLSOPENFILE, NMLS$BLD_REPLY 
-EXTRN NMLSMAINHANDLER 
“EXTRN NMLSERROR 1, NMLSERROR 2 
-EXTRN NMLSLISTERTITY, NMLSLIST_KNOWN_NODES 
.EXTRN NMLSLIST TYPE_NODES 
-EXTRN NMLSLISTRNOWN, NMLSREADACTLOG 
.EXTRN NMLSREADKNOLOG, NMLS$READLOGGING 
XTRN NMLSSEND, NMLSSHOWMULTIPLE 
-EXTRN NMLSSHOW MULTIPLE NODE 
-EXTRN NMLSSHOW-KNO 


$ 
~EXTRN NMLSSHOWEXECUTO 
~-EXTRN NMLSCALL_NI_CONF IG 


»PSECT S$CODES,NOWRT,2 


03FC 00000 .ENTRY NMLSREAD, Save R2,R3,R4,R5,R6,R7,RB,R9 : 

59 000000006 00 9€ 90002 MOVAB NMLSGL_PRS_FLGS, R9 : 

58 00000000° 00 9—E 0000 MOVAB T AB, ”R ; 

57 000000006 00 9E 0010 MOVAB NML$GB_OPTIONS, R7 ; 

50 000000006 00 9A 0001 MOVZBL NMLS$GB-INFO, RO ; 

04 12 OO1E BNEQ  ~=1$ ; 

54 D4 000 CLRL —sINDEX : 

ef 11 00022 BRB ; 

01 : 91 00024 1$ CMPB ss RO, #1 : 

' 12 00027 BNEQ ; 

54 1 00 00029 MOVL #1, INDEX ; 

¢3 11 0002¢ BRB ; 

02 0 91 O0eE 2$ CMPB = RO, «#2 ; 

05 12 00031 BNEQ : 

54 02 p 0 MOVL #2, INDEX F 

BRB ; 

03 50 91 00038 3$ CMPB sO, #3 : 

09 if 0038 BNEQ 4 ; 

67 95 00030 TSTB = NMLS$GB_OPTIONS : 

F 19 0003F BLSS ; 

54 3 90 00041 MOVL #3, INDEX : 
D 11 00044 BRB : 9 

04 0 91 00 46 4% CMPB sO, #4 : 

» ¥ 4 BNEQ 3 

54 4 p 48 MOVL #4, INDEX : 

3 4 BRB 6 : 

54 01 Cr 6 2 5$: MNEGL #1, INDEX ; 

FFFFFFFF © BF 4 D 6$: CMPL INDEX, #1 ; 


-o 


N 1 

NMALSREAD NML Read information module 16-Sep-1984 :28: VAX-11 Bliss-32 V4.0-74 e 7 NP 
yo%~000 NMLSREAD Read parameters main routine 12-808- 1382 99:88:49 DI SKSVMGMASTERSENML SRCINMLREAD.B32;1°%° (A ve 
7 a: O3¢ RNEGL te (SP) $ 0406 ; 

000000006 1 FB F CALLS #1, NMLSERROR_1 : : 
000000006 p 368 7$: HOV NAL $GL NML_ENTITY, R5 + 0410 : 

51 68% cj Q ADDL TABLE TABERS ,_RO, ENT_TAB : : 
000000006 90 007 CVTBL NMLSGB_ENTITY_FORMAT, R3 : 0442 ; 

1 0D 7¢ TSTL ENT TAB + 0411 ; 

7A 1 O07 BEQL 8$ : F 

56 61 51 ¢1 00 ADDL3 ENT_TAB, (ENT_TAB), RTN_ADDR + 0413 : 
51 36 D 4 CMPL RIN-ADDR, ENT-TAB + 0419 ; 

j 7 BEQL 18$ : ; 

67 98 9 is NML$GB_OPTIONS + 0426 : 

50 18 Al H O08D MOVAB 4(R1), READ_TABLE_ADR + 0427 : 

50 04 Al 9E 0095 8$ MOVAB 4(R1), READ_TABLE_ADR + 0429 ; 

FFFFFFFC 8F 53 D1 00097 9$ CMPL R3, #4 + 0444 ; 

09 1F O09 BLSSU 10 : ; 

FFFFFFFD  8F 3 D1 OOOA CMPL = R3,, #3 F : 

09 1B 000A7 BLEQU 118 : ; 

FFFFFFFF © 8F 53 D1 OOOA9 108: CMPL R3 #1 ; : 

10 12 60080 BNEQ 13$ : ; 

06 69 08 E1 000B2 11$: BBC #2, NMLSGL_PRS_FLGS, 12$ + 0447 F 
52 0c Ad 00 90086 MOVL §§ 12(READ_TABLE_ADR), READ_RTN + 0448 ; 

2F 11 OOOBA BRB 17$ ; ; 

52 08 AQ DO OO0BC 12$:  MOVL  8(READ_TABLE_ADR), READ_RTN + 0450 F 

29 11 000C0 BRB 17$ : 0447 : 

FFFFFFFE  8F 3 p1 000C2 138: CMPL = R33, #2 + 0451 ; 

06 12 0009 BNEQ 14$ ; : 

52 10 AO 00 000CB MOVL § 16(READ_TABLE_ADR), READ_RTN + 0452 : 

1A 11 OOOCE BRB 17$ : : 

53 D5 00001 148: TSTL = RB + 0453 : 

OF 13 9005 BECL 15$ : : 

10 53 D1 000D CMPL R3, #16 + 0456 : 

OF 1A 90006 BGTRU 16$ ; ; 

06 69 02 €1 OOODA BBC #2, NMLSGL_PRS FLGS, 15$ : 0457 ; 
52 04 Ad DO OO0DE MOVL § 4(READ_TABCE_ADR), READ_RTN : 0458 ; 

07 11 O00E BRB 17$ ; : 

52 60 DO 000E4 15$: MOVL (READ_TABLE_ADR), READ_RTN : 0460 : 

08 11 000€7 BRB 17$ : 0457 : 

D4 QOOED 168: CLRL READ_RIN + 0462 : 

D 13 000EB 17$:  BEQ 1 > 0468 : 

52 1 0 OED ADDL2 ENT_TAB, READ_RTN ; 9470 : 

2 DD O00F PUSHL READ RIN : 0476 : 

4 0D OOF 2 PUSHL INDER > 0475 : 

5 DD 000F4 PUSHL R3 + 0474 : 

66 03 FB 000F6 CALLS #3, (RTN_ADDR) F : 

04 OF ET : 0468 3 

53 DD OOOFA 18$:  PUSHL > 0485 : 

re 09 CE OOOFC MNEGL #9, (SP) ; ; 

000000006 0 2 FB OOOFF CALLS #2, NMLSERROR_2 ; ; 

04 00106 RET > 0486 3 


; Routine Size: 263 bytes, Routine Base: S$CODE$ + 0000 
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you-000 NML_READ Read parameters 13280871386 99:88:79 DLSKSVMGHASTERSENML SRCINMLREAD .B32;1 ’ 

491 487 ZSBTITL_ "NML_READ Read parameters’ 

2 “ 8 ROUTINE NML_READ (ENTITY, INDEX, READ_RTN) : NOVALUE = 

494 490 14+ 

$32 13) FUNCTIONAL DESCRIPTION: 

497 49 i This routine dispatches to the routine which read the permanent 

498 494 or volatile data base for the specified entity. 

499 495 } 

330 49 ! INPUTS: 

01 49 ENTITY The internal NML index for the entity specified in 

9 the eae | command. 
INDEX Entity information table (in NMLDAT) index code. 


by NICE message. 
i IMPLICIT INPUTS: 


! 

{ 

' 

' 

! 

' 

1 

READ_RTN Address of routine to perform read requested 
' 

! 

1 

} NMLSGB_ENTITY_FORMAT contains the entity format code. 
! 


NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 
SELECTONEU .NMLSGB_ENTITY_FORMAT OF 


DWNAOUESWN —OVOODNOULS WN Oo 0On 


=POPIPIMINPINPIPIPINIPININIPININININPIPININININININIDS 2 2 9 OO OO OS OS OS OS POD 


Sete Oe Se Se Se Ge Ge Ge Ge Fe Se Ge Ge Ge Se Ge Ge Fe Ge Se Ge Ge Ge Ge Ge Ge Ge Sse Fe Ge Ge Se Oe Ge Se Se FH SH Se ee Ge Se Se Sees teas 
be ty ty ty Ay ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty ay ty ty ty ty ty tty ty Oye y 9% 4 

See ee ra ah sh sh Ab Ab Ab th ab Ab ab Ab dh Ab ah ab ah ah ah a a a ah a 

WANA PININIPYPINYNINID) 2 2 Ot S| SOOO OOOCOCOCOCOCNO 

FUN 9 OONOAUE UN — O OONOAOUSWN —O DONOU EWN Ow Oo 


PUPP PSV PV SPVSV DV SV SV SV IV SVU IVUSV SV SUV SVSVSVSVSUSVST SUS STSISISTSIO 
OUEWN—OO VUEwr 


CNMASC_ENT_KNO ! Known entities — 
NMASC~ENT-ACTI: ' or active entities 
NMC_READ_PLURAL (.ENTITY, .READ_RTN, .INDEX, 
.NMLS$GB_ENTITY_FORMAT, 0, 
.NMLS$GL-QUALIFTER_PST, 
.NML$GB~ QUAL IF IER-FORMAT, 
NML$AB_GUALIFIER_ID); 
C1 TO 31): ! Single entity 
NML_READ_PLURAL (.ENTITY, .READ_RTN, . INDEX, 
.NMLS$GB_ENTITY FORMAT, NMLSAB_ENTITY_ID, 
-NMLSGL-QUALIFTER_PST, 
-NML$GB~QUAL IF IER-FORMAT, 
NMLS$AB_GUALIFIER_TD); 
COTHERWISE): 
6 a NMLSERROR_2 (NMASC_STS_IDE, .NML$GB_ENTITY_CODE); 
8 END; ! End of NML_READ 
001C 00000 NML_READ: 
«WORD Save R2,R3,R4 : 
54 900000006 0 9€ 0000 MOVAB NMLSGL_QUALIFIER_PST, R4 ; 
3 G6 00 9€E 0000 MOVAB NMLSGB-QUALIFIER-FORMAT, R3 ; 
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000000006 00 


106 bytes, Routine Base: S$CODES + 0107 


; Routine Size: 


+ 


d 2 

NMLSREAD NML Read information module 16-Sep-1984 00:28: VAX-11 Bliss-32 V4.0-74 Pa 0 NM 

vO%~000 NML_READ_LOGGING Read logging volatile paramet 14- eet 99:88:79 DL SKSVMGHASTERSCNML SRCSNMLREAD.B32;1 - (BS va 

; 540 5 1 ZSBTTL "NML_READ_LOGGING Read boggir volatile perenetecs 

; re § ! ROUTINE NML_READ_LOGGING (ENTITY, INDEX, READ_RTN) : NOVALUE = 

: 54 3 1 !+4 

; Sui 278 ! FUNCTIONAL DESCRIPTION: | 

: 278 224 1/ This routine reads the specified logging parameters from the volatile 

; re 226 : } or permanent data base. 

: $56 244 | FORMAL PARAMETERS: 

: 551 246 1 | INPUTS: 

5 226 47 1! ENTITY The internal NML index for the entity specified in 

3; 3 548 1! the NICE command. 

; 554 0549 1! INDEX Entity information table (in NMLDAT) index code. 

5 See 0550 1! READ_RTN Address of routine to perform read requested 

: 228 b223 : by NICE message. 

: 558 932 1} IMPLICIT INPUTS: 

; toF 0554 1! NMLSGB_ENTITY_FORMAT contains the entity format code. 

; 560 0555 1! 

Pat ae te 

: 268 0558 2 BEGIN 

BE baw 

: 566 0561 NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 

: 567 0266 

: 389 pee, COCA 

; 370 0565 ENTITY_ID; 

; 372 0567 SELECTONEU .NMLS$GB_ENTITY_FORMAT OF 

: 57% 0569 NMASC_ENT_KNO, 

; 575 0570 NMASC_ENT_ACT): { Known and active entities 

: 3n6 $873 Penn 0 

5 = 0; 

; 578 $378 ENTITY_ID = 0; 

i OBE = , 

: 581 0576 CNMASC_SNK_CON, ' Console 

3 286 0577 NMASC_SNK_FIL ' File 

; 2 0578 NMASC~SNK~MONS i Monitor 

; 57 EGIN 

; 585 9580 LEN = .NML$GB_ENTITY_FORMAT; 

: 586 581 ENTITY_ID = 0; 

. ie: = 

: 589 0384 COTHERWISE): | 

; gey B2 5 TES NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_LOG); ! Option error | 

: 238 0387 NML_READ_PLURAL (,ENTITY, .READ_RTN, .INDEX, .LEN, .ENTITY_ID, 0); 

: 294 ba89 END; ! End of NML_SHOW_LOGGING | 
| 
| 


why SREAD NML Read information module 16- ~sop-19 4 99: eB: 79 y - 


x Bliss-32 V Page 
NML_READ_LOGGING Read logging volatile paramet 14-Sep-1984 SKSVMSMA 


11 reg 2 
SVMSMASTER eMC” SRC NMLREAD .B32; 1 (6 


Q00C 00000 NML_READ <b DSSING: 


“WORD Save : 0536 
50 000000006 90 98 000 2 CVTBL Mm Seb eRe ty _FORMAT, RO : §236 
FE BF 91 0 CMPB. sé, # : 0569 
g4 1F D BLSSU.-1$ : 
D4 OCD0F CLRL LEN ; 0572 
of 11 00011 BRB $ : 057 
D3 6013 1$: TSTL RO : 0576 
gc 1 001 BEQL ©: 3$ : 
03 9 9 1 CMPB RO, #3 : 
" 1A OOO1A BGTRU 3$ : 
53 g DO 0001C MOVL RO, LEN : 0580 
52 (4 OoiF 2$: CLRL ~— ENT ITY_ID : 0581 
C 11 00021 BRB 4$ : 0567 
; DD 000 3 3$: PUSHL a2 : 0585 
7E CE 000 MNEGL #9, =-(SP) : 
000000006 00 2 FB 00028 CALLS #2, NMLSERROR_2 : 
7E D4 00 F 4$: CLRL 0s = (SP) + 0587 ; 
52 DD 00031 PUSHL ENTITY_ID : ; 
53 DD 00033 PUSHL LEN : ; 
08 AC DD 00035 PUSHL INDEX : : 
0C AC 0D 00038 PUSHL READ_RTN : : 
04 AC DOD 00038 PUSHL ENTITY : ; 
00000000v 00 06 FB 0003E CALLS #6, NML_READ_PLURAL : ; 
04 00045 RET : 0589 ; 


; Routine Size: 70 bytes, Routine Base: S$CODE$ + 0171 
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1 
1 
ZSBTTL "NML_READ_NODE Read node pers ame ane 


Spo19te 00:28:30 yA 
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@ X-11 Bliss-32 V ° 6 
JRE SKSVMSMASTER: cum” She NMLREAD.B32; 429 (7) 


> 


F 
6-$ 
4-S 
r ] 
EAD_R 


; 596 590 1 s 

3 44 384 ! ROUTINE NML[READ-NODE (ENTITY, INDE TN) : NOVALUE = 

; 599 0595 1 !+ 

; 600 0594 1! FUNCTIONAL DESCRIPTION: 

; 601 8292 1 i This rout ine dispatches to the routine which reads the permanent 
3; #8 238 ii or volatile data base for nodes. 

; 60 0597 1! 

; £08 6399 i INPUTS: TITY The int hn. index f h tit ified i 
3 ! e interna ndex for the en specified in 
: 606 0600 1 | the NICE command. ha 

; 607 $68) 1! INDEX Entity inforaetion table (in NMLDAT) index code. 
; 608 602g 1! READ_RTN Address of routine to perform read requested 
; 609 0605 1! by NICE message. 

: 610 0604 1! 

3 61) 0605 1 ! IMPLICIT INPUTS: 

; ol¢ 0606 1! NMLS$GB_ENTITY_FORMAT contains the entity format code. 

; 61 0607 1! 

> 614 0608 1 !-- 

; 615 0609 1 

: 616 0610 BEGIN 

; 617 0611 

; 618 B6i¢ MAP 

3; 619 061 NMLSGB_ENTITY FORMAT ui: SIGNED, 

H 630 pele NML$GB_OPTIONS : BBLOCK 

: ose bei8 SELECTONEU .NMLSGB_ENTITY_FORMAT OF 

> 624 0618 NMASC_ENT_LOO): ! Loop nodes (SHOW only) 

; os? 0619 NMC_READ_PLURAL (. ENTITY, .READ_ RIN, . INDEX, 

; 626 pose 0, 0); 

; os? 0621 

; 628 bOs§ CNMASC_ENT -KNO, ' Known nodes 

3 669 06 NMASC— =ENT_A ! Active nodes 

; 630 0624 NMASC"ENT Abd): ! Adsecent nodes 

3 631 0625 NMC ERERD PLURAL (.ENTITY, .READ_ RTN A, 

3 O36 0626 2 NML$GB_ENTITY— FORMAT, "0. 

: 63 be5S6 "NAL SeL “QUALIFTER_PST, 

3: 634 0628 NML$GB" QUALIFIER" FORMAT, 

3 $3) bose WMUSAB POUALIFIER™ 1D); 

3; 637 0631 CNMASC_ENT_ ADD): ! Node is specified by address 
: 638 bb 36 IF” .NMC$GB_OPTIONS CNMASV_OPT PER THEN 

3; 639 865 NML_READ_PLURAL ( GENTITY READ. RTN, . INDEX, 

3 640 634 2, NMLSAB_ENTITY_16)° 

; 641 0635 ELSE 

: 642 0636 NML_READ_PLURAL (.ENTITY, .READ_RTN, .INDEX, 

> 643 0637 0, .NMLSAB_ENTITY_{[b); 

3 644 638 

: 645 639 C1 TO 6): 

: 94] 0 NML_READ_PLURAL (.ENTITY, .READ_RTN, .INDEX, 

3; 64 sah -NML$GB_ENTITY-FORMAT, 

; 648 4g ML SAB ENTITY_ID); 

3; 649 Ree 

3; 650 644 COTHERWISE): 

3. 631 0645 NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_NOD); ! Option error 

: 652 0646 TES; 


; Routine Size: 138 bytes, Routine Base: $CODE$ + 0187 


NMLSREAD NML Read information module 18-s¢ $ep-1984 VAX-11 Bliss-32 V 3 
yo%~000 NML_READ_NODE Read node parameters sep-1984 99: ¢5 3 DISKSVMSMASTER: chm” she NMLREAD .B32; ia ve 3 

; 653 0647 1 END; ! End of NML_READ_NODE : 

001C 00000 NML_READ_NODE: ; 

WORD Save af? R3,R4 ; 0591 ; 

54 99000000y 0 3 092 MOVAB EAD PLURAL, R4& : : 

33 900000006 900 MOVAB NMCSAB. ERTITY_I6, R3 : : 

2 000000006 9 9 19 CVTBL NAL SCE ENTIT Y-FORMAT, R2 + 0616 : 

FD OF 91 001 CMPB 4-3 > 0618 : 

4 12 00018 BNEQ : ; 

E 04 99010 CLRL  =(SP) + 0619 ; 

FC BF 23 $1 bp021 18 BMPR ORD, a4 : 0622 

06 13 $09 3 BEQL : : 

FE 8F 91 000 CMPB 2, #-2 ; ° 

34 1F 00028 BLSSU : : 

000000006 00 9F 000 p 2$ PUSHAB NMLSAB_QUALIFIER_ID > 0625 : 

7E 000000006 00 9A 000 MOVZBL NMLS$GB~QUALIFIER-FORMAT, (SP) + 0628 : 

000000006 00 DD 0003A PUSHL NMLSGL-QUALIFIER-PST + 0627 : 

E D4 69049 CLRL =(SP) + 0625 : 

52 DD 00042 PUSHL > 0626 : 

08 AC DD 00044 PUSHL INDEX > 0625 : 

Oc aC DD 90047 PUSHL READ _RTN ; : 

04 AC DD 000A PUSHL ENTITY : : 

64 08 FB 0004D CALLS #8, NML_READ_PLURAL : : 

04 90050 RET ; : 

52 D5 00051 3S: TSTL R2 > 0631 : 

14 Ne 0053 BNEG © 6$ : : 

000000906 00 95 00055 TSTB §_NML$GB_OPTIONS > 0632 ; 

06 18 0098 BGEQ  4$ : : 

DD 0005D PUSHL R3 ; 0633 : 

02 DD 0005F PUSHL #2 : 5 

0D 11 00061 BRB 7$ : : 

$3 DD 00063 4$: PUSHL NMLSAB_ENTITY_ID > 0637 : 

: D4 00065 5$: CLRL. = (SP) > 0636 : 

11 9006 BRB 7$ : : 

06 2 91 969 6$: CMPBséR2, #6 > 0639 : 

F 1A C BGTRU ; : 

OC BB $ PUSHR #*M<R2,R3> > 0641 : 

08 AC DD 7$ PUSHL INDEX > 0640 : 

bf AC 0D 7 PUSHL READ_RTN $ ° 

4 at DD 0007 PUSHL ENTITY : ; 

64 0 FB yy CALLS #5, NML_READ_PLURAL ; : 

7 D4 0007D 8$: CLRL = (SP) > 0645 : 

oooo00006 60 02 FB 0008s CALLS. #3, NALSERROR_2 

04 6 4 RET - > 0647 ; 


> 


0000 00000 NML_READ_EXECUTOR: 
- WORD 


H 2 
NMLSREAD NML Read information module 16-Sep-1984 00:28:3 VAX-11 Bliss-32 V4.0-74 Page 24 
you~ NML_READ_EXECUTOR Read executor parameters 132880-1 382 99:88:79 DLSKSVMGMASTERSCNML SRCINMLREAD.B32;1 : BS 

; 655 of 1 ZSBTTL "NML_READ_EXECUTOR Read executor parameters’ : 
; ? oe ! ROUTINE NML_READ_EXECUTOR (ENTITY, INDEX, READ_RTN) : NOVALUE = ; 
; 658 651 1 !44 : 
; 659 6 ¢ 1 ! FUNCTIONAL DESCRIPTION: 3 
; 660 6 7 This routine dispatches to the routine which reads the permanent ; 
; $23 ? ¢ : or volatile data base to get information about the executor node. : 
3 £08 228 1 ! INPUTS: 5 
; 664 . = ENTITY The internal NML index for the entity specified in ; 
: 665 pees 1! the NICE command. : 
3 068 B92 1! INDEX Entity information table (in NMLDAT) index code. ; 
; 66 660 1! READ_RTN Address of routine to perform read requested : 
; 668 0661 1! by NICE message. : 
; 669 0662 1! 3 
; 670 665 1 ! IMPLICIT INPUTS: 3 
; 671 664 1! NMLSGB_ENTITY_FORMAT contains the entity format code. : 
3 O76 0665 1! 3 
3; 67 0666 1 !-- 3 
3; 674 0667 1 3 
; 675 0668 BEGIN : 
; 676 0669 F 
3; 677 0670 Pp 3 
g ore per} NMLSGB_ENTITY_FORMAT : BYTE SIGNED; ; 
; 680 067 SELECTONEU .NMLSGB_ENTITY_FORMAT OF ; 
: 681 0674 S 3 
3; 668 0675 CNMASC_ENT_ADD): !' Node address : 
: 68 O67 NMC_READ_PLURAL (.ENTITY, .READ_RTN, . INDEX); : 
3; 685 0678 C1 TO 6): ' Node name $ 
; 0679 NML_READ_PLURAL (.ENTITY, .READ_RTN, . INDEX); ; 
3; 687 0680 3 
; 688 0681 COTHERWISE): 3 
; 689 068 NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_NOD); ! Option error : 
: 690 068 TES; 3 
3; 691 0684 2 3 
3 692 0685 1 END; ! End of NML_READ_EXECUTOR : 
Save noshing 3: 0649 | 
50 000000006 3 it CVTBL NMLSGB_ENTITY_FORMAT, RO 3; 067 3 
1 BEQL 1$ ; 067 
06 0 91 0B CMPB RO, #6 ; 0678 

11 #41A 0 BGTRU 2$ 5 
8 AC OD 10 1$: PUSHL INDEX 3; 0679 

C AC OD 1 PUSHL READ_RTN : 

4 a DD 1 PUSHL ENTITY 3 

00000000v 00 0 fe 1 cats #3, NML_READ_PLURAL : 
43 D4 1 28: CLAL -(SP) : 0682 

3 8 CE ? MNEGL oe -(SP) 3 

000000006 0 2 FB CALLS #2, NMLSERROR_2 3 


- 


2 


VOLSObO. NAL _READ EXECUTOR Read executor parameters if: Haars 1 99:88:79 ST SCSVMSHASTERENML SRCONMLREAD.B32; 109° B 
04 00020 RET ; 0685 


; Routine Size: 46 bytes, Routine Base: SCODES + 0241 
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NMLSREAD NML Read information mod 1b-5¢ 4 VAX-11 BLi seat cy 
yo%-000 NML_READ_NETWORK Read 35 “Protocol network par 1 730071382 99: $5: i$ DISKSVMSMASTER: cui she NMLREAD .832; ‘ oe $f 
6 6 $ ZSBTTL "NML_READ_NETWORK Read X25-Protocol network parameters’ ‘ 
23? ROUTINE NMLIREAD-NETWORK (ENTITY, INDEX, READ_RTN) : NOVALUE = : 
69 06 3 ++ ‘ 
698 8 90 i FUNCTIONAL DESCRIPTION: ; 
344 691 i This routine dispatches to the routine which reads the permanent ° 
ae 0698 or volatile data base for X25-Protocol networks. ° 
a4 694 ! INPUTS: : 
70 0695 : ENTITY The internal wm, index for the entity specified in : 
704 +24 : the te comman ‘ 
705 94 ! INDEX Entity information table (in NMLDAT) index code. ; 
706 69 : READ_RTN Address of routine to perform read requested ‘ 
707 069 : by NICE message. : 
708 70 } : 
709 70 ! IMPLICIT INPUTS: ; 
4 } NMLSGB_ENTITY_FORMAT contains the entity format code. : 
70 leo ° 


vee | toes -NML$GB_ENTITY_FORMAT OF 


}: ! Active network (internal NML-ACP format only) 
NML_READ_PLURAL (. ENTITY, AREA -RTN, . INDEX, 


0, 0, 
0, 0; 0); 
CNMA$C_ENT_KNO) ! Known entities 
NMC_READ "PLURAL (.ENTITY, .READ_RTN, . INDEX, 


$GB_ENTITY_FORMAT, 0, 
6, me 03; 


{1 TO 16): ! Sin ie, wetwork 


NML_READ_PLURAL (.ENTITY, .READ_R INDEX, 
NML$GB_ENTITY FORMAT: NMLSAB_ENTITY_ID, 


6, mays 03; 
COTHERWISE): 
wo NMLSERROR_2 (NMASC_STS_IDE, .NMLSGB_ENTITY_CODE); 


END; ! End of NML_READ_NETWORK 
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BEGIN 
MAP 
NMLS$GB_ENTITY_FORMAT : BYTE SIGNED; 
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SOVRAE 


0000 00000 NML_READ “GT WORK: 
eWORD Save nothin "9 : $87 
50 000000006 a3 FB gviBL NMLSGB_ENTITY_FORMAT, RO : at 
: 0714 
D : 


E 
7E 


FF OF 


000000006 


8 

¢ 
04 

00000000v 00 

43 000000006 

000000006 00 


; Routine Size: 87 bytes, Routine Base: 


7 


om 


ooo OF Frown eunNv—VTovTr 


wDOO WEOOOOomMmMTsorow«nmnoa 


4 


=o 


OOOO NOITTT COIN 09 IN O 
FOmy FOO 990 SF REO PW" NON 


SCODES + 026F 


x sf 
VOLSObO. t_REA 5 NETOORE. Road 435¢ Protocol network par g: $e: 1984 99: $5: 3 DL SKSVMGMASTE ao chm s SRC 


=(SP) 


- #16 
SP) 
SP) 
ates ENTITY_ID 
INDEX 


ti wmDmuwnwwe t 
aA-RAORKHOOE—— FRO 


ENTITY 

#8, NML_READ_PLURAL 
NML$GB_ENTITY_CODE, -(SP) 
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This routine dispatches to the routine which read the 
volatile data base for areas. 


' INPUTS: 
ENTITY The internal NML index for the entity specified in 
the wits commend: NMLSC_AREA 
Entity information table (in NMLDAT) index code. 
Address of routine to perform read requested 


y NICE message. 


' 

' 

! 

{ 

' 

' 

INDEX 
READ_RTN 
' 

' 

t 

' 


i IMPLICIT INPUTS: 
! NML$GB_ENTITY_FORMAT contains the entity format code. 


PPA ASSIS BS 
SOOWONAOUES WR" OOONOUE WN 


SSNS NNN SSS 


SELECTONEU .NML$GB_ENTITY_FORMAT OF 


CNMASC_ENT_KNO 
NMASC~ENT-ACTS: 
NMC_READ_PLURAL (. ENTITY 
NML$GB 


Ono. 
0): ! Single entity 
NML_READ_PLURAL (.ENTITY, .READ_RTN, . INDEX, 

0, NMLSAB_ENTITY. 16, 
0: 6, 0); “No qualifiers for areas 
COTHERWISE): 


- NMLSERROR_2 (NMASC_STS_IDE, .NMLSGB_ENTITY_CODE); 
END; ! End of NML_READ_AREA 


' Known entities 

! or active entities 
»READ_RTN, .INDEX, 

NTITY_FORMAT 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
MAP 
NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 
é ¥ . 
J; ' No qualifiers for areas 
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0000 00000 NML_READ_AREA: 
WORD 


. Save noshing 
ar 000000006 98 itt CVTBL NMLSGB_ENTITY_FORMAT, RO 
FE F 91 00 CMPB RO. he 
F D BLSSU 1 
— 7C¢ F CLRQ ~(SP) 
7 C CLRQ -(SP) 
5 tt 1 PUSHL Re 
1 1 1 BRB 2 


2 
NML Read information module 18-56 -1984 00:28: VAX-11 Bliss~32 V4.0 
0 NML_READ_AREA Read area parameters 1 330-1382 99:98:79 DISKSVMSMASTER: CNML 
74 ZSBTTL "NML_READ_AREA Read area parameters’ 
f ROUTINE NML_LREAD_AREA (ENTITY, INDEX, READ_RTN) : NOVALUE = 


-74 Pa 
OSRCINMLREAD.832; 1°" 


6 


Be 


Routine Size: 


NML Read information module 
NML_READ_AREA Read area parameters 


74 bytes, 


000000006 


00000000v 00 
7E 000000006 
000000006 0 


oO 
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ROO WEOoomommvoo 
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Routine Base: S$CODE$ + 02C6 


" 
e 


™~m 
bed 


Ww 
wn 


mM 6 
1% ie 1984 12:50:17 DISKSVMSMAS TER: CNM. SRCSNMLREAD.B32;1°°° (103 


R : 0766 
=(SP) t 0767 
(SP) 3 veins 
NML$AB_ENTITY_ID + 0768 
(SP) + 0767 
INDEX ; 
READ_RTN ; 
ENTITY 3 
#8, NML_READ_PLURAL F 
NMLSGB EN ENTITY_CODE, -(SP) + 0772 
#2. NHL SERROR 2 F 

3 0774 


a ENS ee —EEE 


N 2 

WNALSREAD NML Read information module Sep-1984 VAX-11 s-32 V4. 0 
vat NML_SHOW_LINKS Show Link volatile parameters 18: cetlen i $8: a DISK$V mr TER: CNML. OS ACSNMLREAD. B32; oe 439 

re) ZSBTTL "NML_SHOW_LINKS Show Link volatile parame 

ree ROUTINE NML-SHOW"LINKS (ENTITY, INDEX, READ_RTN) tr VALUE = 

788 ‘+ 

44 FUNCTIONAL DESCRIPTION: 

791 i This routine shows the specified Link parameters in the volatile 

ie4 data base. 

794 i INPUTS: 

795 ! ENTITY The rorgrnet —_ index for the entity specified in 

136 i the ee soe 

79 i INDEX Entity in ornet on table (in NMLDAT) index code. 

798 i READ_RTN Address of routine to perform read requested 

44 by NICE message. 

an) IMPLICIT INPUTS: 

803 i NML$GL_PRS_FLGS contains the parse f logs. 

Hie a NMLSGB-ENTITY_FORMAT contains the entity format code. 
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807 

808 

809 


811 


IF .NMLSGL_PRS_FLGS CNMLSV_PRS_ VMS] THEN 
SEL ECTONEUT -NML$GB_ENTITY_FORMAT OF 


PAMASC ENT_KNOJ: ' Known 
NMC_READ_PLURAL (. “ENTITY, oor. 
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» NML $GB "QUAL 
NMLSAB_QUALI 
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CNMASC_ENT_ADD): 
NMC_READ_PLURAL (. “ENTITY ee. 


THDER™ 
. (NMLSAB_ENTITY_1D)<0,16>); 
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NMLSERROR_ " (NMASC_STS_IDE, NMASC_SENT_LNK); ! Option error 
! End of NML_SHOW_LINKS 
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BEGIN 
MAP 

NMLS$GB_ENTITY_FORMAT : BYTE SIGNED; 

| , we functions specifying the Link entity must be system-specific. 
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3 
NMLSREAD NML Read information module 1-5 ep-1984 35 VAX-11 Bliss-32 V4. 1 
yo%-000 NML_SHOW_LINKS Show Link volatile parameters 14- ee: 38 99: $5: #9 DISKSVMSMASTER: cui she NMLREAD.B32; tad ©) 


0004 00000 ie ttah al 


~ WO Save R2 3; 0776 ; 
52 90090000y 0 9E 0000 HOVAB ONML READ PLURAL. R2 F : 
4c 900 006 2 i 000 BLBC -NMLSGL_PRS FLGS, 2$ + 0807 ; 
50 000000006 0919 CVTBL NML$GB “ENTITY: FORMAT, RO : 0808 ; 
FF OF 0 74 9017 CHPB RO, #-T + 0810 : 
000000006 § oF 0 19 PUSHAB NMLS$AB_QUALIFIER_ID > 0811 ; 
7E BORD fob 8 A MOVZBL NML$GB_ QUALIFIER- FORMAT, =-(SP) s pete ; 
0 G DD O002A PUSHL NMLSGL-QUALIFIER“PST > 081 ; 
E D4 000 CLRL. =(SP + 0811 : 
7E 01 CE 000 MNEGL #1, -(SP) : : 
08 AC DD 000 PUSHL INDEX + 0813 
C AC DD 00038 PUSHL  READ_RTN + 0812 
04 AC ODD 00 B PUSHL ENTITY : 0811 
62 98 FB 8 E CALLS #8, NML_READ_PLURAL r 
1 11 00041 BRB 2$ $ 
50 D5 00043 1$: TSTL RO + 0819 
15 12 00045 BNEQ 2$ F 
7E 000000006 00 3C 00047 MOVZWL NMLSAB_ENTITY_ID, -(SP) + 0824 
7E D4 O004E CLRL = (SP) + 0820 
08 AC DD 00050 PUSHL INDEX + 0822 
0c AC DD 00053 PUSHL READ_RTN ; 0821 
04 AC DD 00056 PUSHL ENTITY + 0820 
62 05 FB 00059 CALLS #5, NML_READ_PLURAL : 
07 DD 0005C 2s: PUSHL #7 : 0827 
7E 09 CE 0005E MNEGL #9, =(SP) : 
000000006 00 02 FB 00061 CALLS #2. NMLSERROR_2 : 
04 00068 RET : 0829 


; Routine Size: 105 bytes, Routine Base: S$CODE$ + 0310 


NMLSREAD NML Read information module 16-se mt tS 9: gb: 70 VAX-11 Bliss-32 V4. 3 

v04- NML_READ_PLURAL Read plural entity parameters -Sep-1 DISK KSVMGR TER: cum” she NMLREAD .B32; 39 fa ) 

; 8 O 1 XSBTTL ‘NML_READ_PLURAL Read plural ent tyy pergnete ers’ : 
: 08 ! ROUTINE NML_ “READ _ PLURAL (ENT, RTN, INF, PRM2, PRM3, PRM4, PRMS, PRM6) : NOVALUE = ; 
: 833 1 14 ; 
H ; os ¢ ! FUNCTIONAL DESCRIPTION: : 
; 7 9 61! This routine eeverne initialization for read operations. : 
; 848 88 Ye The NICE frami ng messages (plural and done) are transmitted and : 
: 849 838 1 | the SHOW or LIST routine is called. : 
; 850 0839 1! 3 
; 851 0840 1 | FORMAL PARAMETERS: 3 
; b3¢ te ii 3 
; 8 § 1 ENT Entity type code. . 
; 854 0843 1! RTN Address of routine to be called. : 
3 99 0844 1: INF entornet ten code (SUMMARY, STATUS, CHARACTERISTICS, : 
; 856 0845 1! or COUNT . 
; 857 0846 1! PRM2 = PRM6 Function=specific routine parameters. : 
; 858 0847 1! : 
; 859 0848 1 | SIDE EFFECTS: $ 
; 0849 1 | : 
: 61 Bees ; 7 Several NICE messages are transmitted. : 
: 085¢ 1 ie ; 
; 0853 1 : 
; 0854 BEGIN : 
3 0855 ; 
; 0856 MAP : 
; 0897 NML$GB_OPTIONS : BBLOCK (1); : 
; 0859 2 LOCAL ; 
; 0860 MSGSIZE; ; 
; 0862 2 IF .NMLSGB_OPTIONS CNMASV_OPT_PER] THEN ; 
: Baee ; Open permanent data base file specified for write. 3 
: 0866 2 NMLSOPENFILE (.NMLSAB_ENTITYDATA C.ENT, EITSB_FILEIDJ, NMASC_OPN_AC_RO); 3 
: 444 Send success with multiple responses message. ; 
; 0870 2 NMLSBLD_REPLY (UPLIT (0, NMASC_STS HOR), MSGSIZE); ! Build message F 
; 0871 ¢ NALSSEND (NALSAB SNDBUFFER, .MSGSIZE) ! Send it : 
: oer 7 Enable condition handler to allow done message to be sent. ; 
; 0875 2 LIBSESTABLISH (NAL SMAINHANDLER) ; : 
: O87 Call entity-specific routine. ; 
; 79 3 (.RTN) (ENT, INF, .PRM2, .PRMS, PRM, .PRMS, PRG); ; 
: 1 Signal done message. 3 
; : LIBSREVERT (); ! Disable condition handler ; 
: : NMLSERROR_1 (NMASC _STS_DON); ! Signal no more responses : 
; 6 1 END; ! End of NML_READ_PLURAL | ; 
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NML_READ_PLURAL Read plural entity parameters Disk SK$V nen RSENMLS OSRCINMLREAD. B32;1 29 (435 


-PSECT S$PLITS,NOWKT,NOEXE ,2 
00000002 00000000 O000C P.AAD: .LONG 6, 2 : 


-PSECT SCODES,NOWRT,2 
0000 00000 NML_READ_PLURAL: 
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-WORD Save nothing ; 0831 

SE 04 ce 90002 SUBL2 —s ; 
000000006 00 95 0000 TSTB © NMLS$GB_OPTIONS + 0862 

16 18 00008 BGEQ g : 
7E D4 0000D CLRL {$P) + 0866 

50 04 Ac 2C C5 0000F MULL3 RO F 

7E 0000000060040 9A 00014 MOV ZBL anc $aBn ETT YDATALROJ, -(SP) : 

000000006 00 ge FB O01¢ CALLS #2, NMC SOPENF I F 
E DD 00023 1$: PUSHL sp : 0870 

00000000' 00 9F 00025 PUSHAB ; 

000006006 00 02 FB 000 8 CALLS Wo NMLSBLD_REPLY : 
6E OD 000 PUSHL MS > 0871 

000000006 00 9F 00034 PUSHAB NMLSAB_SNDBUFFER : 

000000006 00 02 FB 00054 CALLS #2, NMCSSEN : 
000000006 00 9F 00041 PUSHAB NMLSMAINHANDLER : 0875 

000000006 00 01 FB 00047 CALLS ae LIBSESTABLISH ; 
20 AC 9F 0004E PUSHAB PRM6 + 0879 

7E 18 AC 7D 00051 MOVQ BRM, -(SP) : 

7E 10 AC 7D 00055 MOVaQ PRMZ, -(SP) 3 

0C AC DD 00059 PUSHL _INF ; 

04 AC DD 0005C PUSHL : 

08 BC 07 FB 0005F CALLS #7, : 
000000006 00 00 FB 00063 CALLS 40. ETasneveRT : 0883 
7E 80 8F 98 O006A CVTBL ate -(SP) : 0884 

000000006 00 01 FB 0006E CALLS , NMLSERROR_1 ; 
04 0007 RET + 0886 


; Routine Size: 118 bytes, Routine Base: S$CODE$ + 0379 


NMLSREAD NML Read information modul 1hese -1984 00:28:3 VAX-11 Bliss-32 V4.0-7 4 Ne 
v04-000 plural opr gRG 9:80.77 3 


ry Used: 171 pages 
Compi ation. Complete 


NML_READ_PLURAL Read plural entity parameters 14-Sep-1 DL SKSVMGHASTER. CNM. SRC NMLREAD.B32; (39 (13) Vv 
: 899 87 1 END ! End of module 
. 
; 901 9 0O ELUDOM 
3 PSECT SUMMARY | 
; Name Bytes Attributes 
: SOWNS 984 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS OQ NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, Sklar od Tb att 
; SCODES 1007 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Bia eee es eee Symbols -oe----- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: Tg yt rg Th 341 33 9 27 00:00.1 
: ~$255$pUAz8: SHRL IBINMALIBRY - 2:1 87 22 2 47 90:00.2 
: 7$255$pUA28:CSYSLIBISTARLET.L32; 1 9776 0 0 581 00:02. 
: COMMAND QUALIFIERS ; 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NMLREAD/OBJ=OBJ$:NMLREAD MSRC$:NMLREAD/UPDATE=(ENHS$:NMLREAD) 
3; Size: 1007 0039. + 1004 data bytes 
3; Run Time 
; Elapsed taes 
; Lines/CPU Min oie? 
; Lexenes/CPU-Min: 28538 
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